home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / command.d < prev    next >
Encoding:
Text File  |  1989-10-12  |  462 b   |  15 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'command "Command.h")
  4.  
  5. (define-widget-class 'command 'xmCommandWidgetClass)
  6.  
  7. (define-callback 'command 'commandChangedCallback #t)
  8. (define-callback 'command 'commandEnteredCallback #t)
  9.  
  10. (define command-callback->scheme
  11. "   return Get_Selection_CB ((XmCommandCallbackStruct *)x);")
  12.  
  13. (c->scheme 'command-commandChangedCallback   command-callback->scheme)
  14. (c->scheme 'command-commandEnteredCallback   command-callback->scheme)
  15.